(defun c:cleanxng()


	

  	(setq myblocks (ssget "x" '((0 . "insert"))))

  	(command "erase" myblocks "")

	(setq mypliness (ssget "x" '((0 . "polyline"))))

  	(c:plxl)

  	(setq mypolys (ssget "x" '((0 . "polyline"))))

  	(command "explode" "!mypolys")

    	 	

  	(command "-layer" "lt" "continuous" "*" "" "")

  	




	
)